Data (pre touch screen)
Chelsea Harmon
6/14/2018
Getting Data From data Folder output from Psychopy 33 subjects
Seperating response times when more than one response was made
Grouping into Blocks
Raw Accuracy Plot 
Raw RT Plot 
## Loading required package: gridExtra##
## Attaching package: 'gridExtra'## The following object is masked from 'package:dplyr':
##
## combine
Normalized Values
## # A tibble: 4 x 2
## Group normalizedValues
## <chr> <dbl>
## 1 Block1 1.00
## 2 Block2 1.02
## 3 Block3 0.986
## 4 Block4 0.883## # A tibble: 4 x 2
## Group keyResponseTime1
## <chr> <dbl>
## 1 Block1 1.06
## 2 Block2 1.00
## 3 Block3 0.925
## 4 Block4 0.833## geom_path: Each group consists of only one observation. Do you need to
## adjust the group aesthetic?
Adding Age
inventory <- read.csv("../data/sequenceLearningInventory05.16.2018.csv")
unique(inventory$SUBID)## [1] PA001 PA002 PA003 PA004 PA005 PA006 PA007 PA008 PA009 PA010 PA011
## [12] PA012 PA013 PA014 PA015 PA016 PA017 PA018 PA019 PA020 PA021 PA022
## [23] PA023 PA024 PA025 PA026 PA027 PA028 PA029 PA030 PA031 PA032 PA033
## [34] PA034 PA035 PA036 PA037 PA038 PA039 PA040 PA041 PA042 PA043 PA044
## [45] PA045 PA046 PA047 PA048 PA049 PA050 PA051 PA052 PA053 PA054 PA055
## [56] PA056 PA057 PA058 PA059 PA060 PA061 PA062 PA063 PA064 PA065 PA066
## [67] PA067 PA068 PA069 PA070 PA071 PA072 PA073 PA074 PA075 PA076 PA077
## [78] PA078 PA079 PA080 PA081 PA082 PA083 PA084 PA085 PA086 PA087 PA088
## [89] PA089 PA090 PA091 PA092 PA093 PA094 PA095 PA096 PA097 PA098 PA099
## [100] PA100 PA101 PA102 PA103 PA104 PA105 PA106 PA107 PA108 PA109
## 109 Levels: PA001 PA002 PA003 PA004 PA005 PA006 PA007 PA008 PA009 ... PA109inventory$participant <- gsub("PA0", "", inventory$SUBID)
inventory$participant[1:9] <- gsub("PA00", "", 1:9, inventory$SUBID)
typeof(taskData$participant)## [1] "integer"inventory$participant <- as.integer(inventory$participant)## Warning: NAs introduced by coerciontypeof(inventory$participant)## [1] "integer"subsetData <- subset(inventory, select=c("Age", "Sex", "Group", "fingerPress", "notesFromChecklist", "participant"))
fullData <- merge(normalizing, subsetData, by="participant")
summaryAllValues <- fullData %>%
group_by(participant, Group.x) %>%
summarise_at(vars(keyResponseTime1.x), funs(mean(., na.rm=TRUE)))
#summaryAllValues
summaryAllValues <- as.data.frame(summaryAllValues)
summaryAllValues$participant <- as.factor(summaryAllValues$participant)
fullData$Age <- as.numeric(fullData$Age)
fullData$AgeRounded <- round(fullData$Age, digits = 0)
fullData$AgeRounded <- as.factor(fullData$AgeRounded)
RTbyAge <- ggplot(data=fullData,
aes(Group.x, normalizedValues, group=participant, colour=Age)) +
geom_point() +
geom_line() +
theme_bw() +
labs(title="RT (correct trials only)",
x ="Block (time)", y = "RT") +
scale_colour_gradientn(colours=c("red", "blue"))
RTbyAge
RTbyAgeDiscrete <- ggplot(data=fullData,
aes(Group.x, normalizedValues, group=participant, colour=AgeRounded)) +
geom_point() +
geom_line() +
theme_bw() +
labs(title="RT (correct trials only)",
x ="Block (time)", y = "RT") +
scale_color_brewer(palette="RdGy") +
theme_bw()
# scale_color_manual(breaks = c("6", "7", "8", "9","12", "13"),
# values=c("red", "blue", "green"))
RTbyAgeDiscrete## Warning: Removed 4 rows containing missing values (geom_point).
#ggsave("RTbyAge05.16.2018.png", plot=RTbyAgeDiscrete, height=5, width = 8)
summaryAllValuesACC <- taskData %>%
group_by(participant, Group) %>%
summarise_at(vars(trialCorrect), funs(mean(., na.rm=TRUE)))
#summaryAllValuesACC
fullDataACC <- merge(summaryAllValuesACC, subsetData, by="participant")
fullDataACC$Age <- as.numeric(fullDataACC$Age)
fullDataACC$AgeRounded <- round(fullDataACC$Age, digits = 0)
fullDataACC$AgeRounded <- as.factor(fullDataACC$AgeRounded)
ACC <- ggplot(data=fullDataACC, aes(Group.x, trialCorrect, group=participant, colour=AgeRounded)) +
geom_point() +
geom_line()+
theme_bw() +
geom_hline(yintercept = c(0.6), linetype="dotted") +
labs(title="ACC (including anticipatory responses)",
x ="Block (time)", y = "ACC") +
scale_color_brewer(palette="RdGy")
ACC
fullData$fingerPress[fullData$fingerPress=="1*"]<-1
fullData$fingerPress## [1] 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 1 1 1
## [36] 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## [71] 0 0 0 0 0 0 0 0
## Levels: 0 1 1*FingerPressbyAge <- ggplot(data=fullData,
aes(Group.x, normalizedValues, group=participant, colour=AgeRounded)) +
facet_wrap("fingerPress") +
geom_point() +
geom_line() +
theme_bw() +
labs(title="RT (correct trials only)",
x ="Block (time)", y = "RT") +
scale_color_brewer(palette="RdGy")
FingerPressbyAge## Warning: Removed 4 rows containing missing values (geom_point).
Both <- grid.arrange(RTbyAgeDiscrete, ACC, nrow=2)## Warning: Removed 4 rows containing missing values (geom_point).
#ggsave("RTandACCdata05.17.2018.png", plot=Both, height=8, width = 8)Grouping Age
fullData$AgeGroup[fullData$AgeRounded==6] <-"6-7"
fullData$AgeGroup[fullData$AgeRounded==7] <-"6-7"
fullData$AgeGroup[fullData$AgeRounded==8] <- "8 & up"
fullData$AgeGroup[fullData$AgeRounded==9] <- "8 & up"
fullData$AgeGroup[fullData$AgeRounded==10] <- "8 & up"
fullData$AgeGroup[fullData$AgeRounded==11] <- "8 & up"
fullData$AgeGroup[fullData$AgeRounded==12] <- "8 & up"
fullData$AgeGroup[fullData$AgeRounded==13] <- "8 & up"
fullData## participant keyResponseTime1.x Group.x keyResponseTime1.y
## 1 51 0.94 Block1 1.08
## 2 51 0.94 Block2 0.89
## 3 51 0.94 Block3 0.82
## 4 51 0.94 Block4 0.87
## 5 52 1.48 Block1 1.49
## 6 52 1.48 Block2 1.95
## 7 52 1.48 Block3 1.09
## 8 52 1.48 Block4 1.54
## 9 58 2.36 Block1 2.50
## 10 58 2.36 Block2 1.78
## 11 59 1.48 Block1 1.33
## 12 59 1.48 Block2 1.42
## 13 59 1.48 Block3 1.75
## 14 59 1.48 Block4 1.19
## 15 6 0.85 Block1 0.84
## 16 6 0.85 Block2 0.89
## 17 6 0.85 Block3 0.81
## 18 6 0.85 Block4 0.90
## 19 60 2.38 Block1 2.38
## 20 61 0.70 Block1 0.78
## 21 61 0.70 Block2 0.68
## 22 61 0.70 Block3 0.67
## 23 61 0.70 Block4 0.66
## 24 69 0.82 Block1 0.68
## 25 69 0.82 Block2 0.90
## 26 69 0.82 Block3 0.91
## 27 69 0.82 Block4 0.55
## 28 73 1.66 Block1 1.66
## 29 77 0.48 Block1 0.50
## 30 77 0.48 Block2 0.47
## 31 77 0.48 Block3 0.48
## 32 77 0.48 Block4 0.54
## 33 79 1.10 Block1 1.11
## 34 79 1.10 Block2 1.14
## 35 79 1.10 Block3 1.10
## 36 79 1.10 Block4 0.83
## 37 80 0.93 Block1 1.00
## 38 80 0.93 Block2 0.76
## 39 82 2.15 Block1 2.15
## 40 83 1.08 Block1 1.30
## 41 83 1.08 Block2 1.35
## 42 83 1.08 Block3 0.74
## 43 83 1.08 Block4 0.66
## 44 84 1.55 Block1 1.55
## 45 85 0.94 Block1 0.88
## 46 85 0.94 Block2 1.10
## 47 85 0.94 Block3 0.88
## 48 85 0.94 Block4 0.72
## 49 90 0.42 Block1 0.47
## 50 90 0.42 Block2 0.40
## 51 90 0.42 Block3 0.39
## 52 90 0.42 Block4 0.31
## 53 91 0.47 Block1 0.52
## 54 91 0.47 Block2 0.42
## 55 91 0.47 Block3 0.49
## 56 91 0.47 Block4 0.35
## 57 93 1.90 Block1 2.30
## 58 93 1.90 Block2 1.47
## 59 94 1.53 Block1 1.57
## 60 94 1.53 Block2 1.67
## 61 94 1.53 Block3 1.43
## 62 94 1.53 Block4 1.12
## 63 95 1.46 Block1 1.15
## 64 95 1.46 Block2 1.69
## 65 95 1.46 Block3 1.56
## 66 95 1.46 Block4 1.34
## 67 96 1.31 Block1 1.24
## 68 96 1.31 Block2 1.37
## 69 96 1.31 Block3 1.38
## 70 96 1.31 Block4 0.60
## 71 97 0.56 Block1 0.56
## 72 97 0.56 Block2 0.52
## 73 97 0.56 Block3 0.62
## 74 97 0.56 Block4 0.42
## 75 99 0.54 Block1 0.55
## 76 99 0.54 Block2 0.57
## 77 99 0.54 Block3 0.48
## 78 99 0.54 Block4 0.53
## normalizedValues Age Sex Group.y fingerPress
## 1 1.15 7.2 m 2 1
## 2 0.94 7.2 m 2 1
## 3 0.88 7.2 m 2 1
## 4 0.93 7.2 m 2 1
## 5 1.01 8.5 m 2 1
## 6 1.32 8.5 m 2 1
## 7 0.74 8.5 m 2 1
## 8 1.04 8.5 m 2 1
## 9 1.06 6.4 m 2 0
## 10 0.75 6.4 m 2 0
## 11 0.90 7.9 f 2 1
## 12 0.96 7.9 f 2 1
## 13 1.18 7.9 f 2 1
## 14 0.81 7.9 f 2 1
## 15 0.99 7.9 m 1 1
## 16 1.05 7.9 m 1 1
## 17 0.95 7.9 m 1 1
## 18 1.07 7.9 m 1 1
## 19 1.00 6.4 f 2 1
## 20 1.10 8.1 m 2 0
## 21 0.96 8.1 m 2 0
## 22 0.95 8.1 m 2 0
## 23 0.94 8.1 m 2 0
## 24 0.83 NA m 0 0
## 25 1.10 NA m 0 0
## 26 1.12 NA m 0 0
## 27 0.67 NA m 0 0
## 28 1.00 8.9 m 2 1
## 29 1.03 11.9 m 1 0
## 30 0.97 11.9 m 1 0
## 31 0.98 11.9 m 1 0
## 32 1.11 11.9 m 1 0
## 33 1.01 7.5 m 2 1
## 34 1.03 7.5 m 2 1
## 35 1.00 7.5 m 2 1
## 36 0.76 7.5 m 2 1
## 37 1.08 6.0 m 0 1
## 38 0.82 6.0 m 0 1
## 39 1.00 6.2 f 0 1
## 40 1.20 8.2 f 3 0
## 41 1.25 8.2 f 3 0
## 42 0.69 8.2 f 3 0
## 43 0.61 8.2 f 3 0
## 44 1.00 6.3 f 3 0
## 45 0.93 6.3 m 3 0
## 46 1.17 6.3 m 3 0
## 47 0.93 6.3 m 3 0
## 48 0.76 6.3 m 3 0
## 49 1.14 11.7 f 1 0
## 50 0.95 11.7 f 1 0
## 51 0.95 11.7 f 1 0
## 52 0.74 11.7 f 1 0
## 53 1.11 12.6 f 1 0
## 54 0.90 12.6 f 1 0
## 55 1.03 12.6 f 1 0
## 56 0.75 12.6 f 1 0
## 57 1.21 6.3 f 2 0
## 58 0.77 6.3 f 2 0
## 59 1.03 6.0 f 3 0
## 60 1.09 6.0 f 3 0
## 61 0.93 6.0 f 3 0
## 62 0.73 6.0 f 3 0
## 63 0.79 9.9 f 3 0
## 64 1.16 9.9 f 3 0
## 65 1.07 9.9 f 3 0
## 66 0.91 9.9 f 3 0
## 67 0.94 6.8 f 3 0
## 68 1.04 6.8 f 3 0
## 69 1.05 6.8 f 3 0
## 70 0.45 6.8 f 3 0
## 71 1.01 12.4 m 3 0
## 72 0.94 12.4 m 3 0
## 73 1.11 12.4 m 3 0
## 74 0.75 12.4 m 3 0
## 75 1.03 8.6 m 3 0
## 76 1.07 8.6 m 3 0
## 77 0.89 8.6 m 3 0
## 78 0.98 8.6 m 3 0
## notesFromChecklist
## 1 started half of first run with all4 then switched to 2 finger; how many blocks finished left blank
## 2 started half of first run with all4 then switched to 2 finger; how many blocks finished left blank
## 3 started half of first run with all4 then switched to 2 finger; how many blocks finished left blank
## 4 started half of first run with all4 then switched to 2 finger; how many blocks finished left blank
## 5 pointer, and middle finger sometimes
## 6 pointer, and middle finger sometimes
## 7 pointer, and middle finger sometimes
## 8 pointer, and middle finger sometimes
## 9 "Am I done yet?"; used all fingers
## 10 "Am I done yet?"; used all fingers
## 11 # blocks left blank
## 12 # blocks left blank
## 13 # blocks left blank
## 14 # blocks left blank
## 15 Switched a lot / Thumb for 1st button
## 16 Switched a lot / Thumb for 1st button
## 17 Switched a lot / Thumb for 1st button
## 18 Switched a lot / Thumb for 1st button
## 19 left thumb and right middle finger; eating Doritos while playing
## 20 # blocks left blank; used all fingers; took break to see dad and snack between 2-3 minutes, snack betwen rounds
## 21 # blocks left blank; used all fingers; took break to see dad and snack between 2-3 minutes, snack betwen rounds
## 22 # blocks left blank; used all fingers; took break to see dad and snack between 2-3 minutes, snack betwen rounds
## 23 # blocks left blank; used all fingers; took break to see dad and snack between 2-3 minutes, snack betwen rounds
## 24 n/a
## 25 n/a
## 26 n/a
## 27 n/a
## 28 Michelle walked in (run1). Finger pecking. Tired. Only did 1 run.
## 29 n/a
## 30 n/a
## 31 n/a
## 32 n/a
## 33 used all fingers for block one, used one for 2, 3, and 4; lots of trials with long RTs to reject; poor attention; block # left blank
## 34 used all fingers for block one, used one for 2, 3, and 4; lots of trials with long RTs to reject; poor attention; block # left blank
## 35 used all fingers for block one, used one for 2, 3, and 4; lots of trials with long RTs to reject; poor attention; block # left blank
## 36 used all fingers for block one, used one for 2, 3, and 4; lots of trials with long RTs to reject; poor attention; block # left blank
## 37 both hands
## 38 both hands
## 39 only completed 1/2 of one block; tried post test but realized it wouldn't be relevant
## 40 n/a
## 41 n/a
## 42 n/a
## 43 n/a
## 44 n/a
## 45 n/a
## 46 n/a
## 47 n/a
## 48 n/a
## 49 n/a
## 50 n/a
## 51 n/a
## 52 n/a
## 53 n/a
## 54 n/a
## 55 n/a
## 56 n/a
## 57 n/a
## 58 n/a
## 59 n/a
## 60 n/a
## 61 n/a
## 62 n/a
## 63 n/a
## 64 n/a
## 65 n/a
## 66 n/a
## 67 n/a
## 68 n/a
## 69 n/a
## 70 n/a
## 71 n/a
## 72 n/a
## 73 n/a
## 74 n/a
## 75 n/a
## 76 n/a
## 77 n/a
## 78 n/a
## AgeRounded AgeGroup
## 1 7 6-7
## 2 7 6-7
## 3 7 6-7
## 4 7 6-7
## 5 9 8 & up
## 6 9 8 & up
## 7 9 8 & up
## 8 9 8 & up
## 9 6 6-7
## 10 6 6-7
## 11 8 8 & up
## 12 8 8 & up
## 13 8 8 & up
## 14 8 8 & up
## 15 8 8 & up
## 16 8 8 & up
## 17 8 8 & up
## 18 8 8 & up
## 19 6 6-7
## 20 8 8 & up
## 21 8 8 & up
## 22 8 8 & up
## 23 8 8 & up
## 24 <NA> <NA>
## 25 <NA> <NA>
## 26 <NA> <NA>
## 27 <NA> <NA>
## 28 9 8 & up
## 29 12 8 & up
## 30 12 8 & up
## 31 12 8 & up
## 32 12 8 & up
## 33 8 8 & up
## 34 8 8 & up
## 35 8 8 & up
## 36 8 8 & up
## 37 6 6-7
## 38 6 6-7
## 39 6 6-7
## 40 8 8 & up
## 41 8 8 & up
## 42 8 8 & up
## 43 8 8 & up
## 44 6 6-7
## 45 6 6-7
## 46 6 6-7
## 47 6 6-7
## 48 6 6-7
## 49 12 8 & up
## 50 12 8 & up
## 51 12 8 & up
## 52 12 8 & up
## 53 13 8 & up
## 54 13 8 & up
## 55 13 8 & up
## 56 13 8 & up
## 57 6 6-7
## 58 6 6-7
## 59 6 6-7
## 60 6 6-7
## 61 6 6-7
## 62 6 6-7
## 63 10 8 & up
## 64 10 8 & up
## 65 10 8 & up
## 66 10 8 & up
## 67 7 6-7
## 68 7 6-7
## 69 7 6-7
## 70 7 6-7
## 71 12 8 & up
## 72 12 8 & up
## 73 12 8 & up
## 74 12 8 & up
## 75 9 8 & up
## 76 9 8 & up
## 77 9 8 & up
## 78 9 8 & upsummaryAllValues <- fullData %>%
group_by(Group.x, AgeGroup) %>%
summarise_at(vars(normalizedValues), funs(mean(., na.rm=TRUE)))
#summaryAllValues
summaryAllValues <- as.data.frame(summaryAllValues)
RTbyAgeDiscrete <- ggplot(data=summaryAllValues,
aes(Group.x, normalizedValues, group=AgeGroup, colour=AgeGroup)) +
geom_point() +
geom_line() +
theme_bw() +
labs(title="RT (correct trials only)",
x ="Block (time)", y = "RT") +
theme_bw()
RTbyAgeDiscrete
#ggsave("RTSummary2Groups05.17.2018.png", plot=RTbyAgeDiscrete, height=4, width = 4)
typeof(fullData$fingerPress)## [1] "integer"fullDataAllFingers <- fullData[which(fullData$fingerPress==0),]
FingerPressbyAgeGroups <- ggplot(data=fullData,
aes(Group.x, normalizedValues, group=participant, colour=AgeGroup)) +
facet_wrap("fingerPress") +
geom_point() +
geom_line() +
theme_bw() +
labs(title="RT (1= finger pecking)",
x ="Block (time)", y = "RT")
FingerPressbyAgeGroups
Both <- grid.arrange(FingerPressbyAge, FingerPressbyAgeGroups, nrow=2)## Warning: Removed 4 rows containing missing values (geom_point).
#ggsave("RTFingerPressingdata05.17.2018.png", plot=Both, height=8, width = 8)
fullData## participant keyResponseTime1.x Group.x keyResponseTime1.y
## 1 51 0.94 Block1 1.08
## 2 51 0.94 Block2 0.89
## 3 51 0.94 Block3 0.82
## 4 51 0.94 Block4 0.87
## 5 52 1.48 Block1 1.49
## 6 52 1.48 Block2 1.95
## 7 52 1.48 Block3 1.09
## 8 52 1.48 Block4 1.54
## 9 58 2.36 Block1 2.50
## 10 58 2.36 Block2 1.78
## 11 59 1.48 Block1 1.33
## 12 59 1.48 Block2 1.42
## 13 59 1.48 Block3 1.75
## 14 59 1.48 Block4 1.19
## 15 6 0.85 Block1 0.84
## 16 6 0.85 Block2 0.89
## 17 6 0.85 Block3 0.81
## 18 6 0.85 Block4 0.90
## 19 60 2.38 Block1 2.38
## 20 61 0.70 Block1 0.78
## 21 61 0.70 Block2 0.68
## 22 61 0.70 Block3 0.67
## 23 61 0.70 Block4 0.66
## 24 69 0.82 Block1 0.68
## 25 69 0.82 Block2 0.90
## 26 69 0.82 Block3 0.91
## 27 69 0.82 Block4 0.55
## 28 73 1.66 Block1 1.66
## 29 77 0.48 Block1 0.50
## 30 77 0.48 Block2 0.47
## 31 77 0.48 Block3 0.48
## 32 77 0.48 Block4 0.54
## 33 79 1.10 Block1 1.11
## 34 79 1.10 Block2 1.14
## 35 79 1.10 Block3 1.10
## 36 79 1.10 Block4 0.83
## 37 80 0.93 Block1 1.00
## 38 80 0.93 Block2 0.76
## 39 82 2.15 Block1 2.15
## 40 83 1.08 Block1 1.30
## 41 83 1.08 Block2 1.35
## 42 83 1.08 Block3 0.74
## 43 83 1.08 Block4 0.66
## 44 84 1.55 Block1 1.55
## 45 85 0.94 Block1 0.88
## 46 85 0.94 Block2 1.10
## 47 85 0.94 Block3 0.88
## 48 85 0.94 Block4 0.72
## 49 90 0.42 Block1 0.47
## 50 90 0.42 Block2 0.40
## 51 90 0.42 Block3 0.39
## 52 90 0.42 Block4 0.31
## 53 91 0.47 Block1 0.52
## 54 91 0.47 Block2 0.42
## 55 91 0.47 Block3 0.49
## 56 91 0.47 Block4 0.35
## 57 93 1.90 Block1 2.30
## 58 93 1.90 Block2 1.47
## 59 94 1.53 Block1 1.57
## 60 94 1.53 Block2 1.67
## 61 94 1.53 Block3 1.43
## 62 94 1.53 Block4 1.12
## 63 95 1.46 Block1 1.15
## 64 95 1.46 Block2 1.69
## 65 95 1.46 Block3 1.56
## 66 95 1.46 Block4 1.34
## 67 96 1.31 Block1 1.24
## 68 96 1.31 Block2 1.37
## 69 96 1.31 Block3 1.38
## 70 96 1.31 Block4 0.60
## 71 97 0.56 Block1 0.56
## 72 97 0.56 Block2 0.52
## 73 97 0.56 Block3 0.62
## 74 97 0.56 Block4 0.42
## 75 99 0.54 Block1 0.55
## 76 99 0.54 Block2 0.57
## 77 99 0.54 Block3 0.48
## 78 99 0.54 Block4 0.53
## normalizedValues Age Sex Group.y fingerPress
## 1 1.15 7.2 m 2 1
## 2 0.94 7.2 m 2 1
## 3 0.88 7.2 m 2 1
## 4 0.93 7.2 m 2 1
## 5 1.01 8.5 m 2 1
## 6 1.32 8.5 m 2 1
## 7 0.74 8.5 m 2 1
## 8 1.04 8.5 m 2 1
## 9 1.06 6.4 m 2 0
## 10 0.75 6.4 m 2 0
## 11 0.90 7.9 f 2 1
## 12 0.96 7.9 f 2 1
## 13 1.18 7.9 f 2 1
## 14 0.81 7.9 f 2 1
## 15 0.99 7.9 m 1 1
## 16 1.05 7.9 m 1 1
## 17 0.95 7.9 m 1 1
## 18 1.07 7.9 m 1 1
## 19 1.00 6.4 f 2 1
## 20 1.10 8.1 m 2 0
## 21 0.96 8.1 m 2 0
## 22 0.95 8.1 m 2 0
## 23 0.94 8.1 m 2 0
## 24 0.83 NA m 0 0
## 25 1.10 NA m 0 0
## 26 1.12 NA m 0 0
## 27 0.67 NA m 0 0
## 28 1.00 8.9 m 2 1
## 29 1.03 11.9 m 1 0
## 30 0.97 11.9 m 1 0
## 31 0.98 11.9 m 1 0
## 32 1.11 11.9 m 1 0
## 33 1.01 7.5 m 2 1
## 34 1.03 7.5 m 2 1
## 35 1.00 7.5 m 2 1
## 36 0.76 7.5 m 2 1
## 37 1.08 6.0 m 0 1
## 38 0.82 6.0 m 0 1
## 39 1.00 6.2 f 0 1
## 40 1.20 8.2 f 3 0
## 41 1.25 8.2 f 3 0
## 42 0.69 8.2 f 3 0
## 43 0.61 8.2 f 3 0
## 44 1.00 6.3 f 3 0
## 45 0.93 6.3 m 3 0
## 46 1.17 6.3 m 3 0
## 47 0.93 6.3 m 3 0
## 48 0.76 6.3 m 3 0
## 49 1.14 11.7 f 1 0
## 50 0.95 11.7 f 1 0
## 51 0.95 11.7 f 1 0
## 52 0.74 11.7 f 1 0
## 53 1.11 12.6 f 1 0
## 54 0.90 12.6 f 1 0
## 55 1.03 12.6 f 1 0
## 56 0.75 12.6 f 1 0
## 57 1.21 6.3 f 2 0
## 58 0.77 6.3 f 2 0
## 59 1.03 6.0 f 3 0
## 60 1.09 6.0 f 3 0
## 61 0.93 6.0 f 3 0
## 62 0.73 6.0 f 3 0
## 63 0.79 9.9 f 3 0
## 64 1.16 9.9 f 3 0
## 65 1.07 9.9 f 3 0
## 66 0.91 9.9 f 3 0
## 67 0.94 6.8 f 3 0
## 68 1.04 6.8 f 3 0
## 69 1.05 6.8 f 3 0
## 70 0.45 6.8 f 3 0
## 71 1.01 12.4 m 3 0
## 72 0.94 12.4 m 3 0
## 73 1.11 12.4 m 3 0
## 74 0.75 12.4 m 3 0
## 75 1.03 8.6 m 3 0
## 76 1.07 8.6 m 3 0
## 77 0.89 8.6 m 3 0
## 78 0.98 8.6 m 3 0
## notesFromChecklist
## 1 started half of first run with all4 then switched to 2 finger; how many blocks finished left blank
## 2 started half of first run with all4 then switched to 2 finger; how many blocks finished left blank
## 3 started half of first run with all4 then switched to 2 finger; how many blocks finished left blank
## 4 started half of first run with all4 then switched to 2 finger; how many blocks finished left blank
## 5 pointer, and middle finger sometimes
## 6 pointer, and middle finger sometimes
## 7 pointer, and middle finger sometimes
## 8 pointer, and middle finger sometimes
## 9 "Am I done yet?"; used all fingers
## 10 "Am I done yet?"; used all fingers
## 11 # blocks left blank
## 12 # blocks left blank
## 13 # blocks left blank
## 14 # blocks left blank
## 15 Switched a lot / Thumb for 1st button
## 16 Switched a lot / Thumb for 1st button
## 17 Switched a lot / Thumb for 1st button
## 18 Switched a lot / Thumb for 1st button
## 19 left thumb and right middle finger; eating Doritos while playing
## 20 # blocks left blank; used all fingers; took break to see dad and snack between 2-3 minutes, snack betwen rounds
## 21 # blocks left blank; used all fingers; took break to see dad and snack between 2-3 minutes, snack betwen rounds
## 22 # blocks left blank; used all fingers; took break to see dad and snack between 2-3 minutes, snack betwen rounds
## 23 # blocks left blank; used all fingers; took break to see dad and snack between 2-3 minutes, snack betwen rounds
## 24 n/a
## 25 n/a
## 26 n/a
## 27 n/a
## 28 Michelle walked in (run1). Finger pecking. Tired. Only did 1 run.
## 29 n/a
## 30 n/a
## 31 n/a
## 32 n/a
## 33 used all fingers for block one, used one for 2, 3, and 4; lots of trials with long RTs to reject; poor attention; block # left blank
## 34 used all fingers for block one, used one for 2, 3, and 4; lots of trials with long RTs to reject; poor attention; block # left blank
## 35 used all fingers for block one, used one for 2, 3, and 4; lots of trials with long RTs to reject; poor attention; block # left blank
## 36 used all fingers for block one, used one for 2, 3, and 4; lots of trials with long RTs to reject; poor attention; block # left blank
## 37 both hands
## 38 both hands
## 39 only completed 1/2 of one block; tried post test but realized it wouldn't be relevant
## 40 n/a
## 41 n/a
## 42 n/a
## 43 n/a
## 44 n/a
## 45 n/a
## 46 n/a
## 47 n/a
## 48 n/a
## 49 n/a
## 50 n/a
## 51 n/a
## 52 n/a
## 53 n/a
## 54 n/a
## 55 n/a
## 56 n/a
## 57 n/a
## 58 n/a
## 59 n/a
## 60 n/a
## 61 n/a
## 62 n/a
## 63 n/a
## 64 n/a
## 65 n/a
## 66 n/a
## 67 n/a
## 68 n/a
## 69 n/a
## 70 n/a
## 71 n/a
## 72 n/a
## 73 n/a
## 74 n/a
## 75 n/a
## 76 n/a
## 77 n/a
## 78 n/a
## AgeRounded AgeGroup
## 1 7 6-7
## 2 7 6-7
## 3 7 6-7
## 4 7 6-7
## 5 9 8 & up
## 6 9 8 & up
## 7 9 8 & up
## 8 9 8 & up
## 9 6 6-7
## 10 6 6-7
## 11 8 8 & up
## 12 8 8 & up
## 13 8 8 & up
## 14 8 8 & up
## 15 8 8 & up
## 16 8 8 & up
## 17 8 8 & up
## 18 8 8 & up
## 19 6 6-7
## 20 8 8 & up
## 21 8 8 & up
## 22 8 8 & up
## 23 8 8 & up
## 24 <NA> <NA>
## 25 <NA> <NA>
## 26 <NA> <NA>
## 27 <NA> <NA>
## 28 9 8 & up
## 29 12 8 & up
## 30 12 8 & up
## 31 12 8 & up
## 32 12 8 & up
## 33 8 8 & up
## 34 8 8 & up
## 35 8 8 & up
## 36 8 8 & up
## 37 6 6-7
## 38 6 6-7
## 39 6 6-7
## 40 8 8 & up
## 41 8 8 & up
## 42 8 8 & up
## 43 8 8 & up
## 44 6 6-7
## 45 6 6-7
## 46 6 6-7
## 47 6 6-7
## 48 6 6-7
## 49 12 8 & up
## 50 12 8 & up
## 51 12 8 & up
## 52 12 8 & up
## 53 13 8 & up
## 54 13 8 & up
## 55 13 8 & up
## 56 13 8 & up
## 57 6 6-7
## 58 6 6-7
## 59 6 6-7
## 60 6 6-7
## 61 6 6-7
## 62 6 6-7
## 63 10 8 & up
## 64 10 8 & up
## 65 10 8 & up
## 66 10 8 & up
## 67 7 6-7
## 68 7 6-7
## 69 7 6-7
## 70 7 6-7
## 71 12 8 & up
## 72 12 8 & up
## 73 12 8 & up
## 74 12 8 & up
## 75 9 8 & up
## 76 9 8 & up
## 77 9 8 & up
## 78 9 8 & upRTAllFingersbyAgeGroups <- ggplot(data=fullData,
aes(Group.x, normalizedValues, group=participant, colour=AgeGroup)) +
facet_wrap("AgeGroup") +
stat_summary() +
# geom_smooth(method = 'lm')+
geom_point() +
geom_line() +
theme_bw() +
labs(title="RT (1= finger pecking)",
x ="Block (time)", y = "RT")
RTAllFingersbyAgeGroups## No summary function supplied, defaulting to `mean_se()
## No summary function supplied, defaulting to `mean_se()
## No summary function supplied, defaulting to `mean_se()## Warning: Removed 78 rows containing missing values (geom_pointrange).